Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/Bonus/Plasmatech/ptscp_eval.exe/%MAINDIR%/Examples/Demo/FMain.dfm/FMain.txt

Text File | 2001-08-31 | 26.0 KB | 1,057 lines

object FrmMain: TFrmMain
  Left = 332
  Top = 218
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Shell Control Pack Demo'
  ClientHeight = 291
  ClientWidth = 427
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 427
    Height = 291
    ActivePage = WelcomeTsh
    Align = alClient
    MultiLine = True
    TabOrder = 0
    object WelcomeTsh: TTabSheet
      Caption = 'Welcome'
      object PaintBox1: TPaintBox
        Left = 0
        Top = 0
        Width = 419
        Height = 245
        Align = alClient
        OnPaint = PaintBox1Paint
      end
      object Label8: TLabel
        Left = 106
        Top = 14
        Width = 210
        Height = 19
        Caption = 'Welcome to the Plasmatech'
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label1: TLabel
        Left = 105
        Top = 13
        Width = 210
        Height = 19
        Caption = 'Welcome to the Plasmatech'
        Font.Color = clAqua
        Font.Height = -16
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 39
        Top = 33
        Width = 345
        Height = 34
        Caption = 'Shell Control Pack Demo'
        Font.Color = clBlack
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label4: TLabel
        Left = 37
        Top = 31
        Width = 345
        Height = 34
        Caption = 'Shell Control Pack Demo'
        Font.Color = clYellow
        Font.Height = -29
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object VersionTxt: TLabel
        Left = 184
        Top = 227
        Width = 57
        Height = 14
        Caption = 'Version %s'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Transparent = True
      end
      object CopyrightLabel: TLabel
        Left = 79
        Top = 196
        Width = 261
        Height = 29
        Alignment = taCenter
        AutoSize = False
        Caption =
          'Copyright %s 1996-2001 Plasmatech Software Design. All rights re' +
          'served.'
        Transparent = True
        WordWrap = True
      end
      object Panel1: TPanel
        Left = 127
        Top = 68
        Width = 164
        Height = 124
        BevelOuter = bvNone
        BorderStyle = bsSingle
        Caption = 'Panel1'
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 0
        object PlasmaLogoImg: TImage
          Left = 0
          Top = 0
          Width = 160
          Height = 120
          Align = alClient
          AutoSize = True
          Center = True
          Picture.Data = {<image000.bmp>}
          Stretch = True
        end
      end
      object Button3: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Hint = 'Click here to continue...'
        Caption = '&Next >'
        Default = True
        TabOrder = 2
        OnClick = OnNextBtnClick
      end
      object Button10: TButton
        Left = 4
        Top = 216
        Width = 125
        Height = 23
        Hint = 'http://plasmatech.com'
        Caption = '&Visit our Web site...'
        TabOrder = 1
        OnClick = Button10Click
      end
    end
    object OverviewTsh: TTabSheet
      Caption = 'Overview'
      object ToolbarImg: TImage
        Left = 8
        Top = 168
        Width = 402
        Height = 35
        Hint = 'xxx'
        Picture.Data = {<image001.bmp>}
        OnMouseMove = ToolbarImgMouseMove
      end
      object Button11: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 2
        OnClick = OnBackBtnClick
      end
      object Button12: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 1
        OnClick = OnNextBtnClick
      end
      object OverviewRchtxt: TRichEdit
        Left = 4
        Top = 4
        Width = 409
        Height = 144
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (
          'OverviewRchtxt')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object ExplorerTsh: TTabSheet
      Caption = 'Explorer'
      object Button1: TButton
        Left = 139
        Top = 168
        Width = 141
        Height = 23
        Caption = 'Start the Mini-E&xplorer...'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button7: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 1
        OnClick = OnBackBtnClick
      end
      object Button4: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 2
        OnClick = OnNextBtnClick
      end
      object ExplorerRchtxt: TRichEdit
        Left = 4
        Top = 4
        Width = 409
        Height = 157
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (
          'ExplorerRchtxt')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 3
      end
    end
    object OpenDialogTsh: TTabSheet
      Caption = 'Open Dialog'
      object Label10: TLabel
        Left = 8
        Top = 160
        Width = 90
        Height = 13
        Caption = 'Selected Filename:'
      end
      object Edit1: TEdit
        Left = 8
        Top = 176
        Width = 273
        Height = 21
        Color = clBtnFace
        TabOrder = 0
      end
      object TestOpenDlgBtn: TButton
        Left = 292
        Top = 156
        Width = 121
        Height = 23
        Caption = 'Test &Open Dialog...'
        TabOrder = 1
        OnClick = TestOpenDlgBtnClick
      end
      object Button14: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 2
        OnClick = OnNextBtnClick
      end
      object Button15: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 3
        OnClick = OnBackBtnClick
      end
      object FileOpenRchedt: TRichEdit
        Left = 4
        Top = 4
        Width = 409
        Height = 145
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (
          'FileOpenRchtxt')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 4
      end
      object Button13: TButton
        Left = 292
        Top = 184
        Width = 121
        Height = 23
        Caption = 'Test &Save Dialog...'
        TabOrder = 5
        OnClick = Button13Click
      end
    end
    object FolderBrowseTsh: TTabSheet
      Caption = 'Folder Browser'
      object BaseTxt: TLabel
        Left = 8
        Top = 208
        Width = 39
        Height = 13
        Caption = 'BaseTxt'
      end
      object Button16: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 0
        OnClick = OnNextBtnClick
      end
      object Button17: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 1
        OnClick = OnBackBtnClick
      end
      object FolderBrowseRchedt: TRichEdit
        Left = 4
        Top = 4
        Width = 409
        Height = 179
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (
          'FolderBrowseRchedt')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object FolderBrowseBtn: TButton
        Left = 264
        Top = 184
        Width = 150
        Height = 23
        Caption = '&Test folder browse dialog...'
        TabOrder = 3
        OnClick = FolderBrowseBtnClick
      end
      object BaseBtn: TButton
        Left = 8
        Top = 184
        Width = 105
        Height = 23
        Caption = '&Set base folder...'
        TabOrder = 4
        OnClick = BaseBtnClick
      end
    end
    object ListTsh: TTabSheet
      Caption = 'List Control'
      object Label9: TLabel
        Left = 4
        Top = 4
        Width = 394
        Height = 13
        Caption =
          'This is an example of a shell list view operating alone. Right-c' +
          'lick for context menus.'
      end
      object Button6: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 0
        OnClick = OnNextBtnClick
      end
      object Button9: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 1
        OnClick = OnBackBtnClick
      end
      object PTShellList1: TPTShellList
        Left = 4
        Top = 20
        Width = 409
        Height = 189
        Options = [ptsloAutoFill, ptsloNonFilesystemAncestors, ptsloDefaultKeyHandling, ptsloContextMenus, ptsloDontChangeFolder]
        Folder.Pidl = {0111}
        IconOptions.AutoArrange = True
        PopupMenu = PopupMenu1
        TabOrder = 2
        ViewStyle = vsReport
      end
    end
    object PTTreeTsh: TTabSheet
      Caption = 'Custom Draw Tree'
      object EnableTimerBtn: TSpeedButton
        Left = 96
        Top = 136
        Width = 81
        Height = 23
        Hint = 'Changes the state of items in response to a timer event.'
        AllowAllUp = True
        GroupIndex = 2
        Caption = '&Animate'
        OnClick = EnableTimerBtnClick
      end
      object BoldBtn: TSpeedButton
        Left = 8
        Top = 163
        Width = 27
        Height = 23
        Hint = 'Bold'
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'B'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Margin = 7
        ParentFont = False
        OnClick = BoldBtnClick
      end
      object ItalicBtn: TSpeedButton
        Left = 35
        Top = 163
        Width = 27
        Height = 23
        Hint = 'Italic'
        AllowAllUp = True
        GroupIndex = 2
        Caption = 'I'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsItalic]
        Margin = 7
        ParentFont = False
        OnClick = ItalicBtnClick
      end
      object UnderlineBtn: TSpeedButton
        Left = 62
        Top = 163
        Width = 27
        Height = 23
        Hint = 'Underline'
        AllowAllUp = True
        GroupIndex = 3
        Caption = 'U'
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        Margin = 7
        ParentFont = False
        OnClick = UnderlineBtnClick
      end
      object PTTreeView1: TPTTreeView
        Left = 8
        Top = 8
        Width = 121
        Height = 121
        HideSelection = False
        Indent = 19
        Items.Data = {
          020000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000003000000
          0546727569741E0000000000000000000000FFFFFFFFFFFFFFFF000000000000
          0000054170706C651D0000000000000000000000FFFFFFFFFFFFFFFF00000000
          0000000004506561721E0000000000000000000000FFFFFFFFFFFFFFFF000000
          00000000000547756176611D0000000000000000000000FFFFFFFFFFFFFFFF00
          0000000200000004446F6773210000000000000000000000FFFFFFFFFFFFFFFF
          0000000000000000085368696820547A75240000000000000000000000FFFFFF
          FFFFFFFFFF00000000000000000B4A61636B2052757373656C}
        OnChange = PTTreeView1Change
        OnDeletion = PTTreeView1Deletion
        TabOrder = 0
        OnPTCustomDraw = PTTreeView1PTCustomDraw
        OnNodeContextMenu = PTTreeView1NodeContextMenu
      end
      object FontBtn: TButton
        Left = 8
        Top = 136
        Width = 81
        Height = 23
        Caption = '&Font...'
        TabOrder = 2
        OnClick = FontBtnClick
      end
      object CustomDrawTreeRchedt: TRichEdit
        Left = 136
        Top = 8
        Width = 281
        Height = 117
        BorderStyle = bsNone
        Ctl3D = False
        Lines.Strings = (
          'CustomDrawTreeRchedt')
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object Button24: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 4
        OnClick = OnBackBtnClick
      end
      object Button25: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 5
        OnClick = OnNextBtnClick
      end
      object ClickMe1Btn: TButton
        Left = 200
        Top = 136
        Width = 89
        Height = 23
        Hint = 'Sets up the tree with colors and fonts.'
        Caption = '&Click Me!'
        TabOrder = 3
        OnClick = ClickMe1BtnClick
      end
      object ResetBtn: TButton
        Left = 200
        Top = 163
        Width = 89
        Height = 23
        Caption = '&Reset'
        TabOrder = 6
        OnClick = ResetBtnClick
      end
      object FgColorBtn: TButton
        Left = 8
        Top = 192
        Width = 81
        Height = 23
        Caption = 'F&oreground...'
        TabOrder = 7
        OnClick = FgColorBtnClick
      end
      object BkColorBtn: TButton
        Left = 8
        Top = 216
        Width = 81
        Height = 23
        Caption = 'Bac&kground...'
        TabOrder = 8
        OnClick = BkColorBtnClick
      end
    end
    object SplitterTsh: TTabSheet
      Caption = 'Splitter Panels'
      object Label11: TLabel
        Left = 4
        Top = 4
        Width = 405
        Height = 37
        AutoSize = False
        Caption =
          'You can easily create split views of any complexity by nesting o' +
          'ne splitter panel within another. Below you see a vertical paren' +
          't splitter containg two horizontal child splitters.'
        WordWrap = True
      end
      object PTSplitter3: TPTSplitter
        Left = 4
        Top = 52
        Width = 409
        Height = 157
        Color = clBtnFace
        ParentColor = False
        Proportional = False
        Position = 168
        SplitterWidth = 5
        TabOrder = 0
        object TPTPane
          Left = 0
          Top = 0
          Width = 168
          Height = 157
          FrameStyle = ptfsNone
          TabOrder = 0
          Index = 0
          object PTSplitter4: TPTSplitter
            Left = 0
            Top = 0
            Width = 168
            Height = 157
            Align = alClient
            Proportional = False
            Position = 68
            Style = ptstHorizontal
            SplitterWidth = 5
            TabOrder = 0
            object TPTPane
              Left = 0
              Top = 0
              Width = 168
              Height = 68
              Color = 13172735
              ParentColor = False
              TabOrder = 0
              Index = 0
              object Label2: TLabel
                Left = 0
                Top = 0
                Width = 134
                Height = 52
                Align = alClient
                Alignment = taCenter
                Caption =
                  #13#10'This is an example of'#13#10'nested splitter panels'#13#10'implementing a ' +
                  '4-pane view.'
              end
            end
            object TPTPane
              Left = 0
              Top = 73
              Width = 168
              Height = 84
              Color = clBlack
              ParentColor = False
              TabOrder = 1
              Index = 1
              object ScrollBox1: TScrollBox
                Left = 0
                Top = 0
                Width = 164
                Height = 80
                HorzScrollBar.Tracking = True
                VertScrollBar.Tracking = True
                Align = alClient
                BorderStyle = bsNone
                TabOrder = 0
                object Image3: TImage
                  Left = 0
                  Top = 0
                  Width = 97
                  Height = 178
                  AutoSize = True
                end
              end
            end
          end
        end
        object TPTPane
          Left = 173
          Top = 0
          Width = 236
          Height = 157
          FrameStyle = ptfsNone
          TabOrder = 1
          Index = 1
          object PTSplitter5: TPTSplitter
            Left = 0
            Top = 0
            Width = 236
            Height = 157
            Align = alClient
            Proportional = False
            Position = 68
            Style = ptstHorizontal
            SplitterWidth = 5
            TabOrder = 0
            object TPTPane
              Left = 0
              Top = 0
              Width = 236
              Height = 68
              Color = clBtnFace
              ParentColor = False
              TabOrder = 0
              Index = 0
              object ScrollBox2: TScrollBox
                Left = 0
                Top = 0
                Width = 232
                Height = 64
                HorzScrollBar.Tracking = True
                VertScrollBar.Tracking = True
                Align = alClient
                BorderStyle = bsNone
                TabOrder = 0
                object Image1: TImage
                  Left = 0
                  Top = 0
                  Width = 232
                  Height = 115
                  AutoSize = True
                  Center = True
                end
              end
            end
            object TPTPane
              Left = 0
              Top = 73
              Width = 236
              Height = 84
              Color = 12582847
              ParentColor = False
              TabOrder = 1
              Index = 1
              object Label3: TLabel
                Left = 8
                Top = 7
                Width = 100
                Height = 13
                Caption = 'Drag the splitter bars!'
              end
            end
          end
        end
      end
      object Button5: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 1
        OnClick = OnNextBtnClick
      end
      object Button8: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 2
        OnClick = OnBackBtnClick
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Image Combo'
      object ImageComboRchedt: TRichEdit
        Left = 0
        Top = 2
        Width = 409
        Height = 79
        BorderStyle = bsNone
        Ctl3D = True
        Lines.Strings = (
          'ImageComboRchedt')
        ParentColor = True
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object Button2: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 1
        OnClick = OnBackBtnClick
      end
      object Button20: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 2
        OnClick = OnNextBtnClick
      end
      object PTImageCombo1: TPTImageCombo
        Left = 124
        Top = 72
        Width = 176
        Height = 33
        IndentPixels = 24
        Font.Color = clWindowText
        Font.Height = -22
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 27
        ParentFont = False
        TabOrder = 3
      end
      object PTImageCombo2: TPTImageCombo
        Left = 124
        Top = 120
        Width = 177
        Height = 21
        ItemHeight = 15
        TabOrder = 4
      end
    end
    object TabSheet8: TTabSheet
      Caption = 'Extra'
      object Label14: TLabel
        Left = 8
        Top = 116
        Width = 236
        Height = 13
        Caption = 'Below is the result of AnsiUppercase(ParamStr(0)):'
      end
      object Label15: TLabel
        Left = 8
        Top = 168
        Width = 373
        Height = 13
        Caption =
          'And this is the result after calling ShellGetDisplayPathname on ' +
          'the above string:'
      end
      object UppercaseEdt: TEdit
        Left = 8
        Top = 132
        Width = 401
        Height = 21
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 0
      end
      object GetDisplayEdt: TEdit
        Left = 8
        Top = 184
        Width = 401
        Height = 21
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object Button18: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Default = True
        TabOrder = 2
        OnClick = OnNextBtnClick
      end
      object Button19: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 3
        OnClick = OnBackBtnClick
      end
      object ShellGetDisplayPathnameRchedt: TRichEdit
        Left = 4
        Top = 4
        Width = 409
        Height = 105
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (
          'ShellGetDisplayPathnameEdt')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 4
      end
    end
    object OrderTsh: TTabSheet
      Caption = 'Order'
      object Button21: TButton
        Left = 265
        Top = 216
        Width = 75
        Height = 23
        Caption = '< &Back'
        TabOrder = 0
        OnClick = OnBackBtnClick
      end
      object Button22: TButton
        Left = 340
        Top = 216
        Width = 75
        Height = 23
        Caption = '&Next >'
        Enabled = False
        TabOrder = 1
        OnClick = OnNextBtnClick
      end
      object OrderBtn: TButton
        Left = 83
        Top = 156
        Width = 117
        Height = 23
        Caption = '&Order Online Now'
        Default = True
        TabOrder = 2
        OnClick = OrderBtnClick
      end
      object Button23: TButton
        Left = 219
        Top = 156
        Width = 117
        Height = 23
        Hint = 'http://plasmatech.com'
        Caption = '&Visit our Web site'
        TabOrder = 3
        OnClick = Button10Click
      end
      object OrderRchedt: TRichEdit
        Left = 4
        Top = 4
        Width = 409
        Height = 149
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        Lines.Strings = (
          'OrderRchedt')
        ParentCtl3D = False
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 4
      end
    end
  end
  object PTOpenDlg1: TPTOpenDlg
    Title = 'TPTOpenDlg Example'
    Options = [ptofAllowMultiselect, ptofFileMustExist, ptofNoReadOnlyReturn, ptofAllowTree, ptofShowTree, ptofShowHints, ptofOleDrag, ptofOleDrop, ptofShowHidden]
    Filter =
      'All files (*.*)|*.*|Delphi source files (*.pas,*.dpr)|*.pas;*.dp' +
      'r|Executables|*.exe;*.pif;*.com|Files that start with F|F*'
    FormWidth = 570
    FormHeight = 410
    FormSplitterPos = 199
    Left = 360
    Top = 46
  end
  object PTFolderBrowseDlg1: TPTFolderBrowseDlg
    FormWidth = 366
    FormHeight = 480
    Options = [ptfbContextMenus, ptfbOleDrag, ptfbOleDrop, ptfbCreateFolderIcon, ptfbDeleteFolderIcon, ptfbVirtualFolders, ptfbShowHidden]
    OnSelChange = PTFolderBrowseDlg1SelChange
    Left = 388
    Top = 46
  end
  object PTSaveDlg1: TPTSaveDlg
    DefaultExt = 'html'
    Options = [ptofCreatePrompt, ptofHideReadOnly, ptofNoReadOnlyReturn, ptofOverwritePrompt, ptofAllowTree, ptofShowTree, ptofShowHints, ptofOleDrag, ptofOleDrop, ptofShowHidden]
    Filter = 'All files (*)|*|Html files (*.html)|*.html'
    FormWidth = 569
    FormHeight = 410
    FormSplitterPos = 200
    Left = 332
    Top = 46
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Left = 304
    Top = 46
  end
  object PopupMenu1: TPopupMenu
    Left = 276
    Top = 46
    object LargeIconsMitm1: TMenuItem
      Caption = 'Lar&ge icons'
      GroupIndex = 1
      Hint = 'Displays items by using large icons.'
      RadioItem = True
      OnClick = ViewMitmClick
    end
    object SmalliconsMItm1: TMenuItem
      Tag = 1
      Caption = 'S&mall icons'
      GroupIndex = 1
      Hint = 'Displays items by using small icons.'
      RadioItem = True
      OnClick = ViewMitmClick
    end
    object ListMitm1: TMenuItem
      Tag = 2
      Caption = '&List'
      GroupIndex = 1
      Hint = 'Displays items in a list.'
      RadioItem = True
      OnClick = ViewMitmClick
    end
    object DetailsMitm1: TMenuItem
      Tag = 3
      Caption = '&Details'
      Checked = True
      GroupIndex = 1
      Hint = 'Displays information about each item in the window.'
      RadioItem = True
      OnClick = ViewMitmClick
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 248
    Top = 46
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 220
    Top = 46
  end
end